0 PRINT"[147][144]":POKE53280,6:POKE53281,1
1 PRINT" COMMODARES....REPEATED COMPRESSION #3 ":PRINT:PRINT
2 REM   REPEATED COMPRESSION
3 REM SOLUTION BY
4 REM   GARY HUDACH
5 REM
10 U$=CHR$(145):INPUTA$:B$=CHR$(32)+A$:PRINTU$" "B$:FORT=2TOLEN(B$)
20 IFMID$(B$,T,1)=MID$(B$,T-1,1)THENPRINTU$SPC(T)CHR$(32):FORX=1TO200:NEXT
30 IFMID$(B$,T,1)<>MID$(B$,T-1,1)THENC$=C$+MID$(B$,T,1)
40 NEXT:FORA=1TOLEN(C$):PRINTU$SPC(A)MID$(C$,A,1)
50 FORB=LEN(C$)TOLEN(B$):PRINTU$SPC(1+B)CHR$(32):NEXTB,A